﻿Public Class frmVersion

    Private Sub frmVersion_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Call gSubIconShow(Me)
        lbVersion.Text = gVersion
        lbLatestVer.Text = gLatestVersion
        Dim os As OperatingSystem = Environment.OSVersion
        If Mid(os.ToString, 1, 22) = "Microsoft Windows NT 5" Then
            Me.FormBorderStyle = Windows.Forms.FormBorderStyle.FixedDialog
        End If
    End Sub

    Private Sub LinkLabel_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel.LinkClicked
        Dim url As String = "http://cafe.naver.com/inventoryman"
        Process.Start(url)
    End Sub
End Class